#!/usr/bin/perl

# 定义一个数组
my @arr = (1, 2, 3, 4, 5);

# 使用chop函数
chop(@arr);
print "@arr\n";  # 输出：0 1 2 3 4

# 使用chomp函数
@arr = (1, 2, 3, 4, 5);
chomp(@arr);
print "@arr\n";  # 输出：1 2 3 4 5

# 使用reverse函数
@arr = reverse(@arr);
print "@arr\n";  # 输出：5 4 3 2 1

# 使用shift函数
my $first = shift(@arr);
print "$first\n";  # 输出：5
print "@arr\n";  # 输出：4 3 2 1

# 使用unshift函数
unshift(@arr, 5);
print "@arr\n";  # 输出：5 4 3 2 1

# 使用pop函数
my $last = pop(@arr);
print "$last\n";  # 输出：1
print "@arr\n";  # 输出：5 4 3 2

# 使用push函数
push(@arr, 1);
print "@arr\n";  # 输出：5 4 3 2 1

# 使用splice函数
splice(@arr, 2, 0, (6, 7));
print "@arr\n";  # 输出：5 4 6 7 3 2 1